home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / fih113.zip / DEINSTAL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-06-07  |  1KB  |  63 lines
  1. /* Icon Heaven de-installation script */
  2. /* (C)Copyright 1993-1996 by The Frobozz Magic Software Company */
  3. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5.  
  6. app = 'IHeaven'
  7. key = 'INSTDIR'
  8.  
  9. ini = value('USER_INI',,'OS2ENVIRONMENT')
  10. tDrive = left(ini,1)
  11.  
  12. '@echo off'
  13.  
  14. Call SysCls
  15.  
  16. say 'Icon Heaven installation utility version 1.13'
  17. say '(C)Copyright 1993-1996 by the Frobozz Magic Software Company'
  18. say ''
  19. /* check to see if Icon Heaven is installed */
  20.  
  21. res = SysIni(, app, key)
  22.  
  23. if res <> 'ERROR:' then do
  24.     instdir = res
  25.     call deinstall
  26.     exit
  27. end
  28.  
  29. say 'Icon Heaven was not found on your system, de-install aborted'
  30. exit
  31.  
  32. deinstall:
  33.  
  34. say 'Icon Heaven is installed in directory ['instdir']'
  35. say 'Do you wish to remove it? [N/y]'
  36. pull reply
  37. if left(reply, 1) = 'Y' then do
  38.     call SysDestroyObject "<FIM_ICONS>"
  39.     Call SysDeregisterObjectClass 'FIMTransIcon'
  40.     Call SysDeregisterObjectClass 'FIMFolder'
  41.     'replace 'instdir'\fim.dll'
  42.     call SysFileTree instdir'\*', 'file.', 'FO'
  43.     'del 'instdir'\*.fim'
  44.     'del 'instdir'\fim.ico'
  45.     'del 'instdir'\fim.hlp'
  46.     'del 'instdir'\iconlib.exe'
  47.     'del 'instdir'\iconlib.ico'
  48.     'del 'instdir'\readme.1st'
  49.     'del 'instdir'\reinst.cmd'
  50.     'del 'instdir'\deinstal.cmd'
  51.     'del 'instdir'\deinstal.ico'
  52.     'del 'instdir'\replace.exe'
  53.     'del 'instdir'\fim.dll'
  54.     Call SysIni , app, key, 'DELETE:'
  55.     Call SysRmDir instdir
  56.     say 'Icon Heaven has been deleted from your system.'
  57. end
  58.  
  59. return
  60.  
  61.  
  62. 
  63.